home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / xipaint3.2 / install < prev    next >
Text File  |  1996-02-11  |  7KB  |  273 lines
  1. ; $VER: XiPaint (4.10.95)
  2. ; Script to install Xipaint 3.2, Disk-Version for Power-Disk 68000
  3.  
  4. (complete 0)
  5. ;=============================================================================
  6. ; German strings
  7.  
  8. (if (= @language "deutsch")
  9. (
  10. (set default_lang 1)
  11.  
  12.  
  13. (set #unpack
  14. (cat "Entpacke XiPaint-Dateien ... "
  15. ))
  16.  
  17.  
  18. (set #multipic
  19. (cat "Kopiere die multipic.library nach libs: ... "
  20. ))
  21.  
  22. (set #nohelp
  23. (cat "Es ist derzeit keine Hilfe vorhanden (sniff)"
  24. ))
  25.  
  26. (set #bad-kick
  27. (cat "Sie müssen Kickstart 2.0 oder höher zum Installieren von XiPaint 3.2 benutzen."
  28. ))
  29.  
  30. (set #introduction
  31. (cat "\n\nHiermit wird XiPaint 3.2 auf Ihrer "
  32.      "Festplatte installiert. "
  33. ))
  34.  
  35.  
  36. (set #ask-function-help
  37. (cat "\nSie müssen auswählen, was installiert werden soll.\n\n"
  38.      "Mit \"XiPaint 3.2 installieren\" wird eine komplette Installation "
  39.      "der XiPaint 3.2 Software durchgeführt. \n "
  40.      "Der Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  41.      "Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
  42.      "Festplatte kopiert werden. Mit \"Sprachen aktualisieren\" können "
  43.      "Sie auswählen, welche Sprachen auf der Festplatte installiert "
  44.      "werden sollen, um dort zur Verfügung zu stehen. Dies dürfen Sie "
  45.      "nur wählen, wenn XiPaint 3.2 schon installiert wurde.\n\n"
  46. ))
  47.  
  48. (set #confirm-target
  49. (cat "\n\nDieses Programm installiert XiPaint 3.2 auf Ihrer Festplatte. "
  50.      "Wollen Sie die XiPaint 3.2 auf der Partition \"%s\" installiert "
  51.      "bekommen?"
  52. ))
  53.  
  54. (set #confirm-target-help
  55. (cat "Wenn Sie im angegebenen Verzeichnis XiPaint-Files updaten möchten, "
  56.      "so bejahen sie diesen Requester. "
  57. ))
  58.  
  59.  
  60. (set #confirm-target-lang
  61. (cat "\n\nDie unter XiPaint 3.2 verfügbaren Sprachen werden jetzt auf Ihrer "
  62.      "Festplatte aktualisiert. Ihre XiPaint 3.2 Datein sind "
  63.      "offenbar auf der Partition \"%s\" installiert.\n\n"
  64.      "Ist das korrekt?"
  65. ))
  66.  
  67. (set #confirm-target-lang-help
  68. (cat "\nDer Installer hat herausgefunden, daß die aktuellen "
  69.      "XiPaint-Dateien offenbar in der Partition namens \"%s\" liegen. "
  70.      "Wenn Sie die Installation einfach weiterlaufen lassen, werden die "
  71.      "Sprachendateien dorthin kopiert."
  72. ))
  73.  
  74. (set #which-disk-lang
  75. (cat "Wo ist XiPaint installiert (um die Hilfedateien zu ergänzen)? "
  76. ))
  77.  
  78.  
  79. (set #reboot-lang
  80. (cat "\nDie Aktualisierung der XiPaint 3.2 ist nun abgeschlossen.\n\n"
  81. ))
  82.  
  83. (set #which-disk
  84. (cat "Wo soll die XiPaint Schublade installiert werden?"
  85. ))
  86.  
  87. (set #which-disk-help
  88. (cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
  89.      "die Dateien von XiPaint 3.2 installiert werden sollen. "
  90.      @askdir-help
  91. ))
  92.  
  93.  
  94. (set #checking-target
  95. (cat "\n\nÜberprüfen von \"%s\" auf überholte Dateien ..."
  96. ))
  97.  
  98.  
  99. (set #delete-old-1
  100. (cat "Automatisch löschen"
  101. ))
  102.  
  103. (set #delete-old-2
  104. (cat "Löschen bestätigen"
  105. ))
  106.  
  107. (set #deleting-obsolete
  108. (cat "\n\nLöschen überholter Dateien"
  109. ))
  110.  
  111. (set #confirm-delete
  112. (cat "\n\nKann die Datei \"%s\" gelöscht werden?"
  113. ))
  114.  
  115. (set #confirm-delete-help
  116. (cat "\nDie Datei "
  117.      "\"%s\" ist unter XiPaint 3.2 überholt. Sie können die Datei "
  118.      "durch Anklicken von \"Ja\" löschen oder durch Anklicken von \"Nein\" "
  119.      "erhalten."
  120. ))
  121.  
  122.  
  123.  
  124. (set #confirm-delete-1
  125. (cat "Ja"
  126. ))
  127.  
  128. (set #confirm-delete-2
  129. (cat "Nein"
  130. ))
  131.  
  132.  
  133. (set #ask-xipaint
  134. (cat "\n\nBitte legen Sie die Diskette \"XiPaint\"  "
  135.      "in ein beliebiges Diskettenlaufwerk ein."
  136. ))
  137.  
  138. (set #which-driver
  139. (cat "Welche Grafikkarten - Treiber sollen installiert werden? "
  140. ))
  141.  
  142.  
  143. (set #xiprefs-start
  144. (cat "Die Installation der XiPaint 3.2 ist nun abgeschlossen.\n\n"
  145.      "Um die richtigen Treiber für Ihre Grafikkarte einstellen zu können "
  146.      "wird nun XiPrefs gestartet. Wählen Sie die gewünschte Grafikkarte und "
  147.      "Displaymodus aus.\n"
  148. ))
  149. (set #xiprefs-start-help
  150. (cat "XiPaint benötigt noch die Display-Einstellungen Ihrer Grafikkarte. "
  151.      "Daher wird nun XiPrefs gestartet. Stellen Sie die gewünschte Auflösung "
  152.      "und den gewünschten Undo-Speicher ein. Sie können jederzeit Änderungen "
  153.      "mit XiPrefs vornehmen.\n"
  154. ))
  155.  
  156. ))
  157.  
  158.  
  159.  
  160.  
  161. ;=============================================================================
  162.  
  163.  
  164. ;=============================================================================
  165. ; Check whether this system is operating with at least Kickstart 2.04 (V37).
  166. ; Otherwise refuse any further action! For lature usage this will remember
  167. ; the Kickstart and the Workbench Versions in the variables kickVersion and
  168. ; wbVersion.
  169.  
  170. (set kickVersion (shiftright (getversion) 16))
  171. (if (< kickVersion 37)
  172.    (
  173.    (message #bad-kick)
  174.    (exit (quiet))
  175.    )
  176. )
  177.  
  178. ;
  179.  
  180. ;=============================================================================
  181. ; do a bit of set up...
  182.  
  183. (set sourcePath (expandpath (pathonly @icon)))
  184.  
  185.  
  186. (set old_xipaint (@default-dest))
  187. ;=============================================================================
  188. ; what do you want to do?
  189.  
  190. (user 2)
  191.  
  192. (message #introduction)
  193.  
  194. ;******************************************************************
  195. ;******************* FULL INSTALL *********************************
  196. ;******************************************************************
  197.  
  198. ;=============================================================================
  199. ; say hi!
  200.  
  201. (user 0)
  202. (welcome)
  203. (set old_level @user-level)
  204.  
  205.  
  206. ;=============================================================================
  207. ; get target directory where update is to be installed
  208. (user 2)
  209. (if (= (strlen old_xipaint) 0)
  210. (
  211.     (user 2)
  212.     (set target (askdir (prompt #which-disk)
  213.             (help #which-disk-help)
  214.             (default "")
  215.             (disk)
  216.         )
  217.     )
  218.     (user old_level)
  219. )
  220. (
  221.     (if (askbool (prompt (#confirm-target old_xipaint))
  222.          (help (#confirm-target-help old_xipaint))
  223.          (default 1)
  224.     )
  225.     (
  226.     (set target old_xipaint)
  227.     )
  228.     (
  229.     (set target (askdir (prompt #which-disk)
  230.                 (help #which-disk-help)
  231.                 (default old_xipaint)
  232.                 (disk)
  233.             )
  234.     )
  235.     ))
  236. ))
  237.  
  238. (set @default-dest target)
  239. (user old_level)
  240. ;=============================================================================
  241. ; make some new drawers
  242.  
  243. (set target (tackon target "XiPaint"))
  244. (set @default-dest target)
  245. (makedir target (infos))
  246.  
  247.  
  248.  
  249. (set mycbx (cat "lzx -r -m -x x xipaint.lzx \"" target "/\"" ))
  250.         (working #unpack)
  251.         ( run mycbx)
  252.         (set mycbx "")
  253.  
  254. ;=============================================================================
  255. ; looking for multipic.library  (Very important)
  256.  (copylib (prompt #multipic) (source (cat target "/libs/multipic.library")) (dest "libs:") (confirm)
  257.      (help #nohelp))
  258.  
  259. (complete 90)
  260.  
  261. (user 2)
  262. (if (askbool (prompt (#xiprefs-start))
  263.          (help (#xiprefs-start-help))
  264.          (default 1)
  265.     )
  266.     (run (cat target "/xiprefs"))
  267.     (run (cat target "/xiprefs\""))
  268. )
  269. (complete 100)
  270. (user old_level)
  271.  
  272.  
  273.